約 4,637,301 件
https://w.atwiki.jp/keiplus/pages/131.html
Excel セル書式 Excel ★タスク 書式設定 本項は書きたての記事です。正確な情報は公式サイト、公式ドキュメント、記載の参照サイトでご確認ください。 content contentsub {}を含む場合はダブル・ブレスで囲む。プログラムソースコードを記述 [ 1000000]0.00," KB";[ 1000000000]0.00,," MB";0.00,,," GB"
https://w.atwiki.jp/randomgenerator/pages/15.html
最新版 RandomGeneratorEx ver1.1.1 更新履歴 4-15マクロの仕様変更 ツールバーの設定をtbar.datに保存するようになりました 4/14GetRandomList.xlsで使用したWordのプロセスが終了後も残ってしまう不具合を修正。すでに残ってしまっている場合はOSを再起動して解放してください。 4/13使いにくいコンポーネントを変更 Excelとの連携(Excelからの呼び出し)が可能になりました。同梱のGetRandomList.xlsがExcel側のプログラム兼説明書になってます。通常版との違いはxlsとexeのみ。 名前
https://w.atwiki.jp/excelmasters/pages/30.html
ExcelViewerとは、パソコンにExcelがインストールされていなくてもExcelで作成したファイルを見たり、印刷したりすることができるソフトで、ファイルの編集はできません。 詳しくはMicrosoftの「Excel Viewer 2003」のページをご覧ください。 http //www.microsoft.com/downloads/details.aspx?FamilyID=c8378bf4-996c-4569-b547-75edbd03aaf0 displaylang=JA
https://w.atwiki.jp/erebos/pages/36.html
Excelファイルを開き、指定のセル値を取得 public class ExcelUtil { #region メンバ変数 private Excel.Application oXls; private Excel.Workbook oWBook; #endregion #region プロパティ /// summary /// ワークブック /// /summary public Excel.Workbook Book { get { return this.oWBook; } } #endregion /// summary /// コンストラクタ /// /summary public ExcelUtil() { } #region メソッド /// summary /// 指定されたExcelファイルを開く /// /summary /// param name="fname" Excelファイル名 /param public bool Open(string fname) { this.oXls = new Excel.Application(); this.oXls.DefaultFilePath = AppDomain.CurrentDomain.BaseDirectory; //this.oXls.Visible = true; // 確認のためExcelのウィンドウを表示する try { // Excelファイルをオープンする this.oWBook = (Excel.Workbook)(oXls.Workbooks.Open( fname, // オープンするExcelファイル名 Type.Missing, // (省略可能)UpdateLinks (0 / 1 / 2 / 3) Type.Missing, // (省略可能)ReadOnly (True / False ) Type.Missing, // (省略可能)Format // 1 タブ / 2 カンマ (,) / 3 スペース / 4 セミコロン (;) // 5 なし / 6 引数 Delimiterで指定された文字 Type.Missing, // (省略可能)Password Type.Missing, // (省略可能)WriteResPassword Type.Missing, // (省略可能)IgnoreReadOnlyRecommended Type.Missing, // (省略可能)Origin Type.Missing, // (省略可能)Delimiter Type.Missing, // (省略可能)Editable Type.Missing, // (省略可能)Notify Type.Missing, // (省略可能)Converter Type.Missing, // (省略可能)AddToMru Type.Missing, // (省略可能)Local Type.Missing // (省略可能)CorruptLoad )); return true; } catch (Exception e) { Console.WriteLine(e.Message); return false; } } /// summary /// 指定されたワークシート名のWorksheetオブジェクトを返す /// /summary /// param name="sheetName" ワークシート名 /param public Excel.Worksheet GetWorksheet(string sheetName) { Excel.Worksheet oSheet; oSheet = (Excel.Worksheet)oWBook.Sheets[GetSheetIndex(sheetName, this.oWBook.Sheets)]; return oSheet; } /// summary /// 指定されたワークシート名のインデックスを返すメソッド /// /summary /// param name="sheetName" ワークシート名 /param /// param name="shs" ワークシートコレクション /param private int GetSheetIndex(string sheetName, Excel.Sheets shs) { int i = 0; foreach (Excel.Worksheet sh in shs) { if (sheetName == sh.Name) { return i + 1; } i += 1; } return 0; } /// summary /// Excelファイルを閉じる /// /summary public void Close() { this.oWBook.Close(Type.Missing, Type.Missing, Type.Missing); //this.oXls.DefaultFilePath = @"C \"; this.oXls.Quit(); Marshal.ReleaseComObject(this.oWBook); Marshal.ReleaseComObject(this.oXls); this.oWBook = null; this.oXls = null; } #endregion }
https://w.atwiki.jp/sevenlives/pages/1329.html
セル(Excel) 読み:せる 英語:cell 別名: 意味: セルとはExcelにおけるデータを入力する最小単位の場所。 列と行の交差する場所であり列はアルファベット、行は数字で表わされる。 このセルという概念によりデータをデータベースのように表にして扱えグラフなどの加工も容易となる。 2008年05月29日 Excel アクティブ・セル
https://w.atwiki.jp/excelmasters/pages/31.html
トップページ マクロ(VBA)を使う マクロでセルやシートをいじる マクロの記録でも登場しましたが、セルの値を書き換えるマクロについて説明します。 Range("セル番地") = 値 数式のときのように、文字列には最初と最後に""をつける決まりがあります。使用例をいくつか紹介します。 Range("A1") = "エクセル" セルA1に「エクセル」と入力します。 行番号 = 10 + 1 Range("B" 行番号) = "ExcelMaster" セルB11に「ExcelMaster」と入力します。 Sheets("Sheet2").Range("C26") = "VBAマクロ" シート「Sheet2」のセルC26に「VBAマクロ」と入力します。 Range("A5") = "" セルA5を空白にします。
https://w.atwiki.jp/keiplus/pages/156.html
Excelカラー Excel color css design XlColorIndex 色 10進数 16進数 1 0,0,0 H000000 2 255,255,255 HFFFFFF 3 255,0,0 H0000FF 4 0,255,0 H00FF00 5 0,0,255 HFF0000 6 255,255,0 H00FFFF 7 255,0,255 HFF00FF 8 0,255,255 HFFFF00 9 128,0,0 H000080 10 0,128,0 H008000 11 0,0,128 H800000 12 128,128,0 H008080 13 128,0,128 H800080 14 0,128,128 H808000 15 192,192,192 HC0C0C0 16 128,128,128 H808080 17 153,153,255 HFF9999 18 153,51,102 H663399 19 255,255,204 HCCFFFF 20 204,255,255 HFFFFCC 21 102,0,102 H660066 22 255,128,128 H8080FF 23 0,102,204 HCC6600 24 204,204,255 HFFCCCC 25 0,0,128 H800000 26 255,0,255 HFF00FF 27 255,255,0 H00FFFF 28 0,255,255 HFFFF00 29 128,0,128 H800080 30 128,0,0 H000080 31 0,128,128 H808000 32 0,0,255 HFF0000 33 0,204,255 HFFCC00 34 204,255,255 HFFFFCC 35 204,255,204 HCCFFCC 36 255,255,153 H99FFFF 37 153,204,255 HFFCC99 38 255,153,204 HCC99FF 39 204,153,255 HFF99CC 40 255,204,153 H99CCFF 41 51,102,255 HFF6633 42 51,204,204 HCCCC33 43 153,204,0 H00CC99 44 255,204,0 H00CCFF 45 255,153,0 H0099FF 46 255,102,0 H0066FF 47 102,102,153 H996666 48 150,150,150 H969696 49 0,51,102 H663300 50 51,153,102 H669933 51 0,51,0 H003300 52 51,51,0 H003333 53 153,51,0 H003399 54 153,51,102 H663399 55 51,51,153 H993333 56 51,51,51 H333333 (参考) [ 【VBA入門】ColorIndexの使い方と色見本一覧(色番号、RGB) | 侍エンジニアブログ ] ( https //www.sejuku.net/blog/32288 )
https://w.atwiki.jp/keiplus/pages/27.html
VisualBasic for Applications Excel、WordなどMicrosoft製のビジネス用アプリOfficeスイートをマクロ操作するための言語がVBAです 次期不明ながらマクロ開発言語にJavaScript実装が予定されています 外部ツール(PyXLL、XLWings)を使えばPythonでの開発も可能です エディタ、実行環境 VisutalBasicEditor(VBE・ALT+F11起動)のみです エディタ(VBE)の使い勝手をカスタマイズ VBAでのコメントアウトは行頭にシングルコーテーション(’)付与 コメントアウトをVBEではコメントブロックと言います コメントブロックはVBEではツールメニューボタンでしか実装されてないため 作成時の簡便性がありません。そこでショートカットを付与します。 コメントブロックのショートカット付与 1.ツールバーオプションから「ユーザ設定」を選択 2.ユーザ設定内のタブ「コマンド」内のボタン「コマンドの配置の変更」を選択 3.「コマンドの配置の変更」からラジオボタン「ツールバー」を選択 4.プルダウンから「編集」を選択 5.コントロール欄「コメントブロック」を選択状態にし、 ボタン「選択したボタンの編集」のプルダウンメニューを開き、 「名前」欄のテキストボックスに「( /)」を末尾に追記 「イメージとテキストを表示」または「テキストのみ表示」にチェックを付ける この後は閉じるを押下してVBEメイン画面に戻ります ・注意点は5.のテキストを表示を選択設定することです。 イメージを表示を選択するとせっかく設定したショートカットが なぜか有効になりません。 ・(&キー)はALT+キーで実行できます。(入力文字は半角) 上述では/を例にしましたが好きなキーを設定できます。 記述 VBAには次の記述方法があります。 sub subprocedure_name(){ } サブプロシージャ―(メイン処理) function function_name(byVal, byRef){ } ファンクション(関数) property (Get/Set/let)property_name list_name as type プロパティー(アクセサ、コンストラクタ) Public/Private/Friend/Static スコープ(Public、Staticは省略可能) クラス VBAのクラスはファイル(cls)を生成することで作成できます (JavaのようなClass~という記述はありません) VBA独自モジュール ワークブック、ワークシート毎にVBAを設置し、開いた時、閉じた時を トリガーにして発動させることができます ユーザフォームモジュールは、入力や表示のモーダルを作成することができます。 ユーザフォームもアクションをトリガーにして動作するプロシージャを切り替えができます。 データベース DB接続は、ライブラリを使用します。 主にADOを使用します。(ほかにRDO、DAOがあります) ライブラリは標準で読み込みされてないため、VBEの「参照設定」で 設定する必要があります 参照設定でチェック印つけるもの Microsoft Active Data Objects x.x Library Microsoft Office xx.x Object Library 2つ目のOffice Object Libraryも設定するのはVBAでADO読込設定 するときに必要なためです。 一般利用者にVBA付きExcelを配布するときは一般利用者に 参照設定を設定してもらう必要がなくなります。 参照設定 主に次のライブラリをおすすめします (必須ではありません。必要時のみ設定で構いません) Microsoft Forms x.x Object Library Microsoft ActiveX Data Objects x.x Library Microsoft Scripting Runtime Microsoft VBScript Regular Expressions x.x Microsoft Office xx.x Object Library テスト OSSであるテスティングツールは以下がある。 VBAUnit http //wiki.c2.com/?VbaUnit VB Lite Unit https //sourceforge.net/projects/vb-lite-unit/ xlUnit https //archive.codeplex.com/?p=xlvbadevtools しかし何れも2014年頃にメンテナンスが止まっており 参考程度にしか使えそうにない。(本当ならMSが率先してやるべき) 次のサイトはテストは自作になるが参考になる良記事 [VBA Functionプロシージャの動作をテストするコード - t-hom’s diary] (https //thom.hateblo.jp/entry/2016/02/28/182648) コーディング規約 MS公式のVBAコーディング規約はありません。 有志の方が例として挙げているので、これを叩き台にして自身や自社・自部署の規約を策定するといいでしょう。 [エクセルVBAコーディングガイドライン【随時更新】] (https //tonari-it.com/excel-vba-coding-guide-line/) [Excel VBAコーディング ガイドライン案 - Qiita] (https //qiita.com/mima_ita/items/8b0eec3b5a81f168822d) [VBA コーディングガイドライン - You.Activate] (http //www.thom.jp/vbainfo/codingguideline.html) 備考 上記でエディタはVBEのみ、と記しました。 有志の方が「Text Scripting on VBA」を作成しGithubで公開されています。 [GitHub - tcsh/text-scripting-vba Modules for text scripting on VBA] (https //github.com/tcsh/text-scripting-vba) [Try #008 – VBAのモダンな開発環境を構築してみた | dayjournal memo] (https //day-journal.com/memo/try-008/) 現在でも利用できるようですが2013年のものでその後のメンテナンス等は 行っておられないようなので、使用時には注意が必要です。 その他 以下はあくまで著者個人の考えです。 VBAは思い立ったらその場で作成し、作成したプロシージャ等はその場でbas、clsファイルとしてエクスポート。 エクスポート時、オブジェクト名を付け忘れないように。 何故エクスポートしておくか?ですが、社内でVBA付きExcelは割と忌み嫌われます。そこでVBAをbas,clsで外だししておくと、xlsx形式Excelでもbas, clsファイルをインポートすればVBAが使え、保存するときはVBA無しで保存すれば通常のxlsx形式で保存できるため、他の方からの苦情を受けずに済みます。 VBAを利用するメリットは自身の作業効率化です。可能な限り上手く利用するのが吉です。 またネットにあるものをそのままコピーして利用する場合、利用規約やライセンス規約に注意が必要です。もし規約の規定が無ければコードの一番上部にURLと作者名をコメントブロックで書いておくことです。 将来実装予定のJavaScriptの詳細は不明です。nodeやwebpackが使えるとなると便利にはなりますがモジュール管理に注意を払う必要がでてきそうです。 なぜそうしてまでExcelを扱う必要があるのか。バグトラッカーや管理ツールは幾らでもあるのに。そう思う人は多いと思う。でも実際の現場はExcel依存から脱却できておらず、また過去資産を使い続けたい場合もあり、嫌がおうにも使わざるを得ない。VBAを使って数々の事務作業を簡素化するにはVBAを使えるようになっておくことは必要。
https://w.atwiki.jp/shiromaty/pages/22.html
Excel Tips & メモ ■部分一致条件付書式 例) C列に市区町村が入力され、そこに"八王子"とある場合に A~C列のセルの色を変えたい 1. 条件付書式にて「数式」を選択 2. 以下の式を入力 =FIND("八王子",#C1) 0 ■ウィンドウ枠の固定 例) C列(項目見出し用)と3行目(タイトル項目見出し用)を見出しとして使用し スクロールしても表示しておきたい 1. D4セルを選択→メニュー「ウィンドウ」→「ウィンドウ枠の固定」
https://w.atwiki.jp/cz8686/pages/16.html
[ExcelVBA]BOOKクローズ時に保存しないように OwnBook.Saved = True [ExcelVBA]Excelブックをオブジェクト変数にセット //EXCELVBAブックをオブジェクト変数にセット Set OwnBook = ActiveWorkbook Set DataSheet = OwnBook.Worksheets("data") Set TemplateSheet = OwnBook.Worksheets("template") [ExcelVBA]データシートの行数取得 DataSheetRowCnt = DataSheet.Range("A1").CurrentRegion.Rows.Count [ExcelVBA]テキスト取込み Dim j As Integer Worksheets("Sheet1").Select Open "D \MyDocuments\data.txt" For Input As #1 //変数初期化 i = 0 Do Until EOF(1) Input #1, _ myBuf(1), myBuf(2), myBuf(3), myBuf(4), myBuf(5), myBuf(6), myBuf(7), myBuf(8), myBuf(9), myBuf(10), myBuf(11), myBuf(12), myBuf(13), myBuf(14), myBuf(15), myBuf(16), myBuf(17), myBuf(18), myBuf(19), myBuf(20), _ myBuf(21), myBuf(22), myBuf(23), myBuf(24), myBuf(25), myBuf(26), myBuf(27), myBuf(28), myBuf(29), myBuf(30), myBuf(31), myBuf(32), myBuf(33), myBuf(34), myBuf(35), myBuf(36), myBuf(37), myBuf(38), myBuf(39), myBuf(40), _ myBuf(41), myBuf(42), myBuf(43), myBuf(44), myBuf(45), myBuf(46), myBuf(47), myBuf(48), myBuf(49), myBuf(50), myBuf(51), myBuf(52), myBuf(53), myBuf(54), myBuf(55), myBuf(56), myBuf(57), myBuf(58), myBuf(59), myBuf(60), _ myBuf(61), myBuf(62), myBuf(63), myBuf(64), myBuf(65), myBuf(66), myBuf(67), myBuf(68), myBuf(69), myBuf(70), myBuf(71), myBuf(72), myBuf(73), myBuf(74), myBuf(75), myBuf(76), myBuf(77), myBuf(78), myBuf(79), myBuf(80), _ myBuf(81), myBuf(82), myBuf(83), myBuf(84), myBuf(85), myBuf(86), myBuf(87), myBuf(88), myBuf(89), myBuf(90), myBuf(91), myBuf(92), myBuf(93), myBuf(94), myBuf(95), myBuf(96), myBuf(97), myBuf(98), myBuf(99), myBuf(100), _ myBuf(101), myBuf(102), myBuf(103), myBuf(104), myBuf(105), myBuf(106), myBuf(107), myBuf(108), myBuf(109), myBuf(110), myBuf(111), myBuf(112), myBuf(113), myBuf(114), myBuf(115), myBuf(116), myBuf(117), myBuf(118), myBuf(119), myBuf(120), _ myBuf(121), myBuf(122), myBuf(123), myBuf(124), myBuf(125), myBuf(126), myBuf(127), myBuf(128), myBuf(129), myBuf(130), myBuf(131), myBuf(132), myBuf(133), myBuf(134), myBuf(135), myBuf(136), myBuf(137), myBuf(138), myBuf(139), myBuf(140), _ myBuf(141), myBuf(142), myBuf(143), myBuf(144), myBuf(145), myBuf(146), myBuf(147), myBuf(148), myBuf(149), myBuf(150), myBuf(151), myBuf(152), myBuf(153), myBuf(154), myBuf(155), myBuf(156), myBuf(157), myBuf(158), myBuf(159), myBuf(160), _ myBuf(161), myBuf(162), myBuf(163), myBuf(164), myBuf(165), myBuf(166), myBuf(167), myBuf(168), myBuf(169), myBuf(170), myBuf(171), myBuf(172), myBuf(173), myBuf(174), myBuf(175), myBuf(176), myBuf(177), myBuf(178), myBuf(179), myBuf(180), _ myBuf(181), myBuf(182), myBuf(183), myBuf(184), myBuf(185), myBuf(186), myBuf(187), myBuf(188), myBuf(189), myBuf(190), myBuf(191), myBuf(192), myBuf(193), myBuf(194), myBuf(195), myBuf(196), myBuf(197), myBuf(198), myBuf(199), myBuf(200), _ myBuf(201), myBuf(202), myBuf(203), myBuf(204), myBuf(205), myBuf(206), myBuf(207), myBuf(208), myBuf(209), myBuf(210), myBuf(211), myBuf(212), myBuf(213), myBuf(214), myBuf(215), myBuf(216), myBuf(217), myBuf(218), myBuf(219), myBuf(220), _ myBuf(221), myBuf(222), myBuf(223), myBuf(224), myBuf(225), myBuf(226), myBuf(227), myBuf(228), myBuf(229), myBuf(230), myBuf(231), myBuf(232), myBuf(233), myBuf(234), myBuf(235), myBuf(236), myBuf(237), myBuf(238), myBuf(239), myBuf(240), _ myBuf(241), myBuf(242), myBuf(243), myBuf(244), myBuf(245), myBuf(246), myBuf(247), myBuf(248), myBuf(249) i = i + 1 For j = 1 To 249 Cells(i, j) = myBuf(j) Next j Loop Close #1 [ExcelVBA]テキスト出力 Sub outputXML() Dim SaveFilename As String Dim i As Integer Dim DataSheetRowCnt As Integer データ行数取得 DataSheetRowCnt = ActiveWorkbook.Worksheets("Sheet1").Range("A1").CurrentRegion.Rows.Count SaveFilename = Application.GetSaveAsFilename("test", "(*.xml),*.xml", , "結果の保存") SaveFilename = ActiveWorkbook.Path "\" "address.xml" MsgBox SaveFilename vbCr "に出力されました" Open SaveFilename For Output As #1 Print #1, " ?xml version= 1.0 encoding= Shift_JIS ? " Print #1, " ?xml-stylesheet type= text/xsl href= address.xsl ? " Print #1, " 名簿 " For i = 3 To DataSheetRowCnt Print #1, " 連絡先 " Print #1, " 正式名称 "; Cells(i, 1).Value; " /正式名称 " Print #1, " 略称 "; Cells(i, 2).Value; " /略称 " Print #1, " 担当者 "; Cells(i, 3).Value; " /担当者 " Print #1, " 内線 "; Replace(Cells(i, 4).Value, Chr(10), "、"); " /内線 " Print #1, " メールアドレス "; Replace(Cells(i, 5).Value, Chr(10), "、"); " /メールアドレス " Print #1, " 担当システム "; Replace(Cells(i, 6).Value, Chr(10), "、"); " /担当システム " Print #1, " 備考 "; Cells(i, 7).Value; " /備考 " Print #1, " 補足 "; Cells(i, 8).Value; " /補足 " Print #1, " /連絡先 " Next i Print #1, " /名簿 " Close #1 ActiveWorkbook.Save End Sub [ExcelVBA]フォルダ選択ダイアログ ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ パブリック変数宣言 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ ■定数■ /* BrowseForFolder Method Options */ Const BIF_RETURNONLYFSDIRS = H1 // Only return file system directories. ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ フォルダ取得ダイアログを表示する (BrowseForFolder関数) 引数 sTitle タイトルの文字列 nOptions 選択オプションの値 sRootFolder 既定フォルダの文字列 ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■ Public Function BrowseForFolder(sTitle As String, nOptions, Optional sRootFolder As String = "") As String Dim oShell As Object Dim oFolder As Object Set oShell = CreateObject("Shell.Application") Set oFolder = oShell.BrowseForFolder(0, sTitle, nOptions, sRootFolder) If oFolder Is Nothing Then BrowseForFolder = "" Else If oFolder.ParentFolder Is Nothing Then 下位の未選択デスクトップ Dim objWShell As Object WScript.Shell シェルのオブジェクトを作成 Set objWShell = CreateObject("WScript.Shell") デスクトップの場所を返す BrowseForFolder = objWShell.SpecialFolders("Desktop") オブジェクトの解放 Set objWShell = Nothing Else BrowseForFolder = oFolder.Items.Item.Path パスをセットする End If End If Set oFolder = Nothing Set oShell = Nothing End Function sub 呼び出しがわ() dim PUB_SAVE_FOLDER as String PUB_SAVE_FOLDER = BrowseForFolder(mymsg, BIF_RETURNONLYFSDIRS, "") Msgbox PUB_SAVE_FOLDER end sub [ExcelVBA]改行コードの除去 Sub test() Dim value1 As String value1 = Cells(1, 2) value1 = Replace(value1, Chr(10), "") 改行コードの除去 Chr(10)= LF:改行 MsgBox value1 Cells(2, 1) = value1 End Sub [ExcelVBA]全シート選択・プレビュー Dim i As Integer For i = ActiveWorkbook.Worksheets.Count To 1 Step -1 ActiveWorkbook.Worksheets(i).Select fase Next i ActiveWindow.SelectedSheets [Excel関数]色々 ■(例)セル値が○になっているデータの数をカウントする。 =COUNTIF(E4 E25,"○") ■(例)セル値が空欄の数をカウントする。 =COUNTBLANK(E5 E27)